home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Almathera Ten Pack 2: CDPD 1
/
Almathera Ten on Ten - Disc 2: CDPD 1.iso
/
pd
/
301-325
/
325
/
rexxhostlib
/
interface.asm
< prev
next >
Wrap
Assembly Source File
|
1995-03-14
|
3KB
|
190 lines
****************************************************************************
*
* This Amiga shared library is based on example source code
* written by Gary Samad & Bill Hawes. It also employs basic
* library concepts introduced by Jimm Mackraz (ELib) and
* Edwin Hoogerbeets (MkLib). This library was generated using
* a customized version of the MkLib utility.
*
****************************************************************************
*
* This is the skeleton for an Amiga Exec library.
* This version is written for Aztec C. It is based on the example
* library by Jimm Mackraz who got some stuff from Neil Katin.
*
****************************************************************************
INCLUDE 'exec/types.i'
Setup MACRO
MOVEM.L D2/D3/D4-D7/A2-A6,-(SP)
JSR _geta4
ENDM
Push MACRO
MOVE.L \1,-(SP)
ENDM
Fix MACRO
IFC '\1',''
MEXIT
ENDC
IFLE \1-8
ADDQ.L #\1,SP
ENDC
IFGT \1-8
LEA \1(SP),SP
ENDC
ENDM
Restore MACRO
Fix \1
MOVEM.L (SP)+,D2/D3/D4-D7/A2-A6
RTS
ENDM
DSEG
PUBLIC _LibFuncTab
_LibFuncTab:
DC.L LibOpen
DC.L LibClose
DC.L LibExpunge
DC.L 0
DC.L XCreateRexxHost
DC.L XDeleteRexxHost
DC.L XSendRexxCommand
DC.L XFreeRexxCommand
DC.L XReplyRexxCommand
DC.L XGetRexxCommand
DC.L XGetRexxArg
DC.L XGetRexxResult1
DC.L XGetRexxResult2
DC.L XGetToken
DC.L XGetStringValue
DC.L XBuildValueString
DC.L -1
CSEG
PUBLIC _RealOpen
PUBLIC _RealClose
PUBLIC _RealExpunge
PUBLIC _CreateRexxHost
PUBLIC _DeleteRexxHost
PUBLIC _SendRexxCommand
PUBLIC _FreeRexxCommand
PUBLIC _ReplyRexxCommand
PUBLIC _GetRexxCommand
PUBLIC _GetRexxArg
PUBLIC _GetRexxResult1
PUBLIC _GetRexxResult2
PUBLIC _GetToken
PUBLIC _GetStringValue
PUBLIC _BuildValueString
PUBLIC _geta4
LibOpen:
Setup
Push A6
JSR _RealOpen
Restore 4
LibClose:
Setup
Push A6
JSR _RealClose
Restore 4
LibExpunge:
Setup
Push A6
JSR _RealExpunge
Restore 4
XCreateRexxHost:
Setup
Push D0
JSR _CreateRexxHost
Restore 4
XDeleteRexxHost:
Setup
Push D0
JSR _DeleteRexxHost
Restore 4
XSendRexxCommand:
Setup
Push A1
Push A0
Push D1
Push D0
JSR _SendRexxCommand
Restore 16
XFreeRexxCommand:
Setup
Push D0
JSR _FreeRexxCommand
Restore 4
XReplyRexxCommand:
Setup
Push A1
Push A0
Push D1
Push D0
JSR _ReplyRexxCommand
Restore 16
XGetRexxCommand:
Setup
Push D0
JSR _GetRexxCommand
Restore 4
XGetRexxArg:
Setup
Push D0
JSR _GetRexxArg
Restore 4
XGetRexxResult1:
Setup
Push D0
JSR _GetRexxResult1
Restore 4
XGetRexxResult2:
Setup
Push D0
JSR _GetRexxResult2
Restore 4
XGetToken:
Setup
Push A1
Push A0
Push D1
Push D0
JSR _GetToken
Restore 16
XGetStringValue:
Setup
Push D0
JSR _GetStringValue
Restore 4
XBuildValueString:
Setup
Push D1
Push D0
JSR _BuildValueString
Restore 8
END